home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb26531.lsp < prev    next >
Text File  |  1998-03-15  |  3KB  |  108 lines
  1. ;=============265.31 GELENK 40
  2.  
  3.  
  4. (defun C:26531AU (/ P1 W)
  5.    (EAITDBL "0026531")
  6.    (princ (strcat "\n\n" EAITbez1))
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (while (= EAITp2 nil)
  10.    (setvar "ORTHOMODE" 0)
  11.    (setvar "OSMODE" 0)
  12.    (if (/= EAITp1 nil)
  13.        (progn  
  14.       (setq EAITp2 EAITp1)
  15.          (EAITmsg "mb_mld12" "\n" "009" nil)    ;Profil-Außenlinie für 2.Gelenk waehlen :
  16.       (setq NL (entsel " "))
  17.     )  
  18.        (progn
  19.       (EAITmsg "mb_mld12" "\n" "008" nil)    ;Profil-Außenlinie für 1.Gelenk waehlen :
  20.       (setq NL (entsel " "))
  21.     )
  22.    )      
  23.    (setq P2 (cadr NL)
  24.         P3 (osnap P2 EAITofend)     ;P3 (osnap P2 "END")
  25.         P4 (osnap P2 EAITofmit)     ;P4 (osnap P2 "MIT")
  26.         W  (angle P3 P4)
  27.         WG (EAITbig W) 
  28.    )    
  29.  
  30.    (EAITbpt nil nil nil)
  31.    (setq P1 (getpoint))
  32.    (if (= P1 nil)(setq P1 (EAITrpt)))
  33.  
  34.    (setvar "OSMODE" 0)
  35.    (command EAITbks EAITbur P1
  36.             EAITbks EAITbz WG
  37.    )
  38.    (setvar "ORTHOMODE" 1)
  39.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel: <0>
  40.    (command EAITege (strcat EAITpfn "26531s4") '(0 0) "" "" EAITofkei pause)
  41.    (command EAITbks EAITbvo)             
  42.    (command EAITbks EAITbvo)             
  43.  
  44.    (setq EAITp1 (polar (EAITbp)(+ (EAITbw) (/ Pi 2)) 30) )
  45.  
  46.    (setvar "ORTHOMODE" 0)
  47.  );while 
  48.    (command EAITege (strcat EAITpfn "26531s3") EAITp1 "" "" EAITp2
  49.             EAITege (strcat EAITpfn "26531s3") EAITp2 "" "" EAITp1 )
  50.  
  51.    (command EAITege (strcat EAITpfn "EAITinfo") (polar EAITp2 0 15) "" "" ""
  52.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  53.             EAITege (strcat EAITpfn "EAITinfo") (polar EAITp1 0 15) "" "" ""
  54.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  55.    )
  56.  
  57.    (setq EAITp1 nil EAITp2 nil)
  58.    (EAITvarz2)
  59.    (princ)
  60. );defun 26531AU
  61.  
  62.  
  63. (defun C:26531HV (/ P1 P2 P3 P4 W WG PZ)
  64.    (EAITDBL "0026531")
  65.    (princ (strcat "\n\n" EAITbez1))
  66.    (EAITvari)
  67.    (EAITvars)
  68.    (setvar "ORTHOMODE" 0)
  69.    (setvar "OSMODE" 0)
  70.    (EAITmsg "mb_mld12" "\n" "010" nil)        ;Profil-Außenlinie waehlen : 
  71.    (setq NL (entsel " ")
  72.          P2 (cadr NL)
  73.      P3 (osnap P2 EAITofend)     ;P3 (osnap P2 "END")
  74.      P4 (osnap P2 EAITofmit)     ;P4 (osnap P2 "MIT")
  75.      W  (angle P3 P4)
  76.      WG (EAITbig W) 
  77.    )    
  78.  
  79.    (EAITbpt nil nil nil)
  80.    (setq P1 (getpoint))
  81.    (if (= P1 nil)(setq P1 (EAITrpt)))
  82.  
  83.    (setvar "OSMODE" 0)
  84.    (command EAITbks EAITbur P1
  85.             EAITbks EAITbz WG
  86.    )
  87.    (setvar "ORTHOMODE" 1)
  88.    (EAITmsg "mb_mld12" "\n" "011" nil)    ;Drehwinkel 1. Gelenkhaelfte : <0>
  89.    (command EAITege (strcat EAITpfn "26531s4") '(0 0) "" "" EAITofkei pause)
  90.    (command EAITbks EAITbvo)             
  91.    (command EAITbks EAITbvo)             
  92.  
  93.              
  94.    (setq PZ (polar P1 (+ (EAITbw) (/ Pi 2)) 30) )
  95.    (setvar "ORTHOMODE" 0)
  96.    (EAITmsg "mb_mld12" "\n" "012" nil)    ;Drehwinkel 2. Gelenkhaelfte : <0>
  97.    (command EAITege (strcat EAITpfn "26531s3") PZ "" "" EAITofkei pause)
  98.  
  99.    (command EAITege (strcat EAITpfn "EAITinfo") (polar PZ 0 15) "" "" ""
  100.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  101.    )
  102.  
  103.    (EAITvarz2)
  104.    (princ)
  105.    
  106. );defun HV
  107. (princ)
  108.